TempMessageCh


Purpose   Displays a temporary message on the screen. This procedure is the
          functional equivalent of the TempMessage procedure, except that
          it identifies the character pressed by the user.

Decln.    TempMessageCh(X,Y,F,B:byte;Str:StrScreen;var Ch:char);

Remarks   X, Y are the coordinates of the first character of the message.
          F, B are the foreground and background display colors.
          Str is the message to display.
          Ch is a character variable that will be updated with the
          character the user pressed.

Example

VAR
  CH : CHAR;
BEGIN
    TEMPMESSAGECH(1,1,YELLOW,RED,'REFORMAT THE FILESERVER? (Y/N)',CH);
    IF UPCASE(CH) = 'Y' THEN
    TEMPMESSAGE(1,1,WHITE,BLUE,'DO I LOOK STUPID?');
END;